home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 September / CHIP 1996 szeptember (CD07).zip / CHIP_CD07.ISO / sac / pack / rar200ru.exe / rar / STANDARD.S < prev    next >
Text File  |  1996-04-29  |  10KB  |  483 lines
  1. ;           ┌────────────────────────────────────────────┐
  2. ;           │                                            │
  3. ;           │ î«ª¡« ¡Ñ ¿ß»«½∞º«óáΓ∞ RAR ñ½∩ φΓ«ú« áασ¿óá │
  4. ;           │                                            │
  5. ;           │  ¥ÆÄ ÄæÄüàìì¢ë SFX - çÇÅôæÆêÆà ê ôéêäêÆà!  │
  6. ;           │                                            │
  7. ;           └────────────────────────────────────────────┘
  8. ;
  9. ;
  10. ;
  11. ;
  12. ;
  13. ;   iSFX ßµÑ¡áα¿⌐ ¡Ñ »«¬áºδóáÑΓß∩ ¬á¬ áασ¿ó¡δ⌐ ¬«¼¼Ñ¡Γáα¿⌐ ß RAR 1.54 ¿ óδΦÑ!
  14. DestDir="INSTALL"
  15. ; è«½¿τÑßΓó« Σá⌐½«ó ó áασ¿óÑ. êçîàìêÆ£ ìÇ ìÇæÆăÖàà!
  16. files=1
  17. ; æó«í«ñ¡«Ñ ñ¿ß¬«ó«Ñ »α«ßΓαá¡ßΓó« ñ½∩ Σá⌐½«ó, ó íá⌐Γáσ. êçîàìêÆ£ ìÇ ìÇæÆăÖàà!
  18. diskneed=1024
  19. ; ÿ¬á½á αá߻ᬫ󬿠Σá⌐½«ó
  20. defbar BLACK,WHITE,WHITE,BLACK,14,7,52
  21. ; ANSI ¬«¼¼Ñ¡Γáα¿⌐ ─────────────────────────────────────────────────────────
  22. clrscr
  23. outtext ansi on
  24. RAR ê¡ßΓá½∩µ¿«¡¡δ⌐ SFX ¼«ñπ½∞
  25. 櫺ñá¡ ß »«¼«Θ∞ε RAR 2.00
  26.  
  27. outtext ansi off
  28.  
  29. ; Åα«óÑα¬á φ½.»«ñ»¿ß¿
  30. if AVPresent == -1
  31.       Message WHITE,RED,"ÄΦ¿í¬á","ìÑóÑα¡á∩ φ½Ñ¬Γα«¡¡á∩ »«ñ»¿ß∞"
  32.       exit 1
  33. endif
  34.  
  35. if AVPresent == 0
  36.       Message WHITE,RED,"ÄΦ¿í¬á","ìÑΓ φ½Ñ¬Γα«¡¡«⌐ »«ñ»¿ß¿"
  37.       exit 1
  38. endif
  39.  
  40. ; Äß¡«ó¡«⌐ Σ«¡
  41. setcolor DARKGRAY,BLACK
  42. window 1,1,80,25
  43. clrscr 219
  44. ; Äß¡«ó¡«Ñ «¬¡«
  45. window 1,1,80,25
  46.  
  47. ; AV info
  48. box 3,3,68,8,YELLOW,BLUE,SINGLE
  49. setcolor YELLOW,BLUE
  50. gotoxy 24,3
  51. text " ê¡Σ«α¼áµ¿∩ «í áασ¿óÑ "
  52. setcolor DARKGRAY,BLACK
  53. window 5,9,69,9
  54. clrscr 177
  55. window 69,4,69,9
  56. clrscr 177
  57. window 4,4,67,7
  58. setcolor LIGHTCYAN,BLUE
  59. clrscr
  60. ; Å«½∩
  61. gotoxy 1,1
  62. text "  êßσ«ñ¡«Ñ ¿¼∩ áασ¿óá: "
  63. gotoxy 1,2
  64. text "  ÆѬπΘÑÑ ¿¼∩ áασ¿óá:  "
  65. gotoxy 1,3
  66. text "  äáΓá áασ¿óá:         "
  67. gotoxy 1,4
  68. text "  èѼ ß«ºñá¡:          "
  69. ; ç¡áτÑ¡¿∩
  70. setcolor WHITE,BLUE
  71. gotoxy 26,1
  72. if AVArcName!="AVArcName"
  73.     text AVArcName
  74. endif
  75. gotoxy 26,2
  76. text ArcName
  77. gotoxy 26,3
  78. if AVDate!="AVDate"
  79.     text "óδ»πΘÑ¡ ",AVDate
  80. endif
  81. gotoxy 26,4
  82. if AVUserName!="AVUserName"
  83.     text AVUserName
  84. endif
  85.  
  86. window 1,1,80,25
  87. ; ì¿ª¡∩∩ ßΓ᫬á
  88. setcolor LIGHTCYAN,DARKGRAY
  89. gotoxy 1,25
  90. text "                     ì᪼¿ΓÑ F1 ñ½∩ »«ñ߬Ậ¿, Alt-X - óδσ«ñ                    "
  91.  
  92. ; ÆÑ¡∞
  93. setcolor DARKGRAY,BLACK
  94. window 25,17,57,17
  95. clrscr 177
  96. window 54,11,57,17
  97. clrscr 177
  98. window 1,1,80,25
  99.  
  100. ; çóπ¬
  101. sound 90,1
  102.  
  103. ; îÑ¡ε πßΓá¡«ó¬¿:
  104.  
  105. Menu:
  106.  
  107. Choice = menu 25,10,BLACK,WHITE,1,"îÑ¡ε πßΓá¡«ó¬¿","        ï¿µÑ¡º¿∩      ","     ÅπΓ∞ πßΓᡫ󬿠    ","       ôßΓá¡«ó¿Γ∞   ","         éδσ«ñ"
  108.  
  109. if Choice == 0
  110.       goto Quit
  111. endif
  112.  
  113. if Choice==1
  114.      savescr 1
  115. FirstPage:
  116.      window 1,1,80,25
  117.      setcolor LIGHTCYAN,BLUE
  118.      clrscr
  119.      box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
  120.      gotoxy 8,25
  121.      ctext "  ì᪼¿ΓÑ PgDn ñ½∩ ß½ÑñπεΘÑ⌐ ßΓαá¡¿µδ ¿½¿ Esc - ó«ºóαáΓ ó ¼Ñ¡ε... "
  122.      gotoxy 1,1
  123.      ctext " ï¿µÑ¡º¿«¡¡«Ñ ß«ú½áΦÑ¡¿Ñ "
  124.      gotoxy 1,1
  125.      window 2,2,80,25
  126.      setcolor YELLOW,BLUE
  127.      sound 140,5
  128.      outtext on
  129.      outtext off
  130. GetKey1:
  131.      Key=getkey
  132.      if Key==27
  133.            restscr 1
  134.            goto Menu
  135.      endif
  136.      if Key==337
  137. SecondPage:
  138.           window 1,1,80,25
  139.           setcolor LIGHTCYAN,BLUE
  140.           clrscr
  141.           box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
  142.           gotoxy 8,25
  143.           ctext "  ì᪼¿ΓÑ PgUp ¿½¿ Esc - ó«ºóαáΓ ó ¼Ñ¡ε ..."
  144.           window 2,2,80,25
  145.           setcolor YELLOW,BLUE
  146.           gotoxy 1,1
  147.           sound 145,5
  148.           outtext on
  149.           outtext off
  150. GetKey2:
  151.           Key=getkey
  152.           if Key==27
  153.                 restscr 1
  154.                 goto Menu
  155.           endif
  156.           if Key == 329
  157.                goto FirstPage
  158.           endif
  159.           goto GetKey2
  160.      endif
  161.      goto GetKey1
  162. endif
  163.  
  164.  
  165. if Choice == 2
  166.      savescr 1
  167.      setcolor WHITE,CYAN
  168.      window 11,10,67,15
  169.      clrscr
  170.      box 4,2,54,5,WHITE,CYAN,SINGLE
  171.      gotoxy 20,2
  172.      text " ÅπΓ∞ πßΓᡫ󬿠"
  173.      window 15,12,63,13
  174.      clrscr
  175.      setcolor WHITE,CYAN
  176.      gotoxy 4,1
  177.      text "éóÑñ¿ΓÑ »πΓ∞ - ñ¿αÑ¬Γ«α¿⌐ ¬πñá πßΓá¡áó½¿óáΓ∞"
  178.      window 18,13,60,13
  179.      Res=INPUT DARKGRAY,WHITE,DestDir,DestDir,42
  180.      restscr 1
  181.      window 1,1,80,25
  182.      goto Menu
  183. endif
  184.  
  185. if Choice == 3
  186.   box 6,11,76,24,LIGHTCYAN,BLUE,DOUBLE
  187.   setcolor LIGHTCYAN,BLUE
  188.   gotoxy 27,11
  189.   text " Åα«µÑßß πßΓá¡«ó¬¿: "
  190.   window 7,12,75,23
  191.   clrscr
  192. ; Åα«óÑα¬á ¡á½¿τ¿∩ ßó«í«ñ¡«ú« ¼ÑßΓá
  193.   DiskSpace=getdfree
  194.   KDiskSpace=DiskSpace/1024
  195.   KDiskNeed=diskneed/1024
  196.   text "ôßΓá¡«ó¬á ¡áτá½áß∞.\n"
  197.   text "ÆαÑíπÑΓß∩ ßó«í«ñ¡«ú« ¼ÑßΓá: ",KDiskNeed," Kb\n"
  198.   text "æó«í«ñ¡«Ñ ¼ÑßΓ« ¡á ñ¿ß¬Ñ: ",KDiskSpace," Kb\n"
  199.   inswrow=4
  200.   window 1,1,80,25
  201.  
  202.   if DiskSpace < diskneed
  203.           savescr 1
  204.           window 1,1,80,25
  205.           sound 2300,25
  206.           delay 100
  207.           sound 1450,25
  208.           delay 100
  209.           sound 2300,100
  210.           Choice = menu 24,16,WHITE,RED,1,"ìÑ σóáΓáÑΓ ¼ÑßΓá","Åα«ñ«½ª¿Γ∞ πßΓá¡«ó¬π","         éδσ«ñ"
  211.           if Choice == 0
  212.                goto Quit
  213.           endif
  214.           if Choice == 2
  215.                goto Quit
  216.           endif
  217.           restscr 1
  218.      endif
  219. endif
  220.  
  221. if Choice == 4
  222. Quit:
  223.      setcolor WHITE,BLACK
  224.      clrscr
  225.      gotoxy 2,3
  226.      text "¥Γ«Γ SFX ñ¿ßΓα¿íπΓ¿ó ¡Ñ íδ½ πßΓá¡«ó½Ñ¡."
  227.      sound 380,25
  228.      delay 210
  229.      sound 190,25
  230.      exit 1
  231.      goto Menu
  232. endif
  233.  
  234. ; ìÇùÇïÄ êìæÆÇïƒûêê!
  235. ; ctext "ê¡ßΓá½∩µ¿∩ ¡áτá½áß∞."
  236.  
  237. proc OnKey
  238.      window 1,1,80,25
  239.      if Par1 == 3
  240.           savescr 15
  241.           Par1=-1
  242.           sound 2300,25
  243.           delay 100
  244.           sound 1450,100
  245.           Choice=Menu 22,11,WHITE,LIGHTRED,1,"Ctrl-Break","           ÅαÑαóáΓ∞          ","      Åα«ñ«½ª¿Γ∞ πßΓá¡«ó¬π     "
  246.           if Choice == 1
  247.                exit 1
  248.           endif
  249.           restscr 15
  250.      endif
  251.  
  252.      if Par1 == 301
  253.            goto Quit
  254.      endif
  255.  
  256.      if Par1 == 315
  257.           savescr 15
  258.           call OutHelp
  259.           Par1=-1
  260.           restscr 15
  261.      endif
  262. endp
  263.  
  264. proc ChangeVol
  265.  
  266.      window 7,12,75,23
  267.      setcolor YELLOW,BLUE
  268.      gotoxy 1,inswrow
  269.  
  270.      if Par2 == 0
  271.            text ".. ÆÄî #",Par1," ¡Ñ«íσ«ñ¿¼« »«ßΓáó¿Γ∞."
  272.            savescr 14
  273.            Par1=-1
  274.            sound 2300,25
  275.            delay 100
  276.            sound 1450,100
  277.            sound 5450,50
  278.            sound 7450,25
  279.            sound 1450,100
  280.  
  281.            Choice=Menu 22,11,WHITE,GREEN,1,"  æ¼Ñ¡¿Γ∞ Γ«¼  ","   Éá߻ᬫóδóáΓ∞ ß½Ññ. Γ«¼        ","        éδ⌐Γ¿ ¡Ñ¼Ññ½Ñ¡¡«     "
  282.  
  283.            restscr 14
  284.  
  285.            if Choice == 2
  286.                  window 7,12,75,23
  287.                  inswrow=inswrow+1
  288.                  gotoxy 1,inswrow
  289.                  text " Æ«¼ ¡Ñ ¡á⌐ñÑ¡. éδσ«ñ¿¼...            "
  290.                  exit 1
  291.            endif
  292.      endif
  293.  
  294.      if Par2 != 0
  295.            setcolor LIGHTCYAN,BLUE
  296.            text ".. ÆÄî #",Par1," αá߻ᬫóδóáÑΓß∩."
  297.      endif
  298.  
  299.      if inswrow = 12
  300.            text "\n"
  301.      endif
  302.  
  303.      if inswrow < 12
  304.            inswrow=inswrow+1
  305.      endif
  306.      window 1,1,80,25
  307. endp
  308.  
  309. proc FileDone
  310.      gotoxy 49,11
  311.      setcolor LIGHTCYAN,BLUE
  312.      Percent=Par1*100
  313.      Percent=Percent/files
  314.      text Percent,"%% "
  315.      window 7,12,75,23
  316.      setcolor LIGHTCYAN,BLUE
  317.      gotoxy 1,inswrow
  318.      text DestFileName
  319.      if inswrow = 12
  320.            text "\n"
  321.      endif
  322.      if inswrow < 12
  323.            inswrow=inswrow+1
  324.      endif
  325.      window 1,1,80,25
  326. endp
  327.  
  328. proc Error
  329.  
  330.      window 7,12,75,23
  331.      setcolor LIGHTCYAN,BLUE
  332.      gotoxy 1,inswrow
  333.  
  334.      Title="ÄΦ¿í¬á"
  335.  
  336.      ; Par1 is assigned with error code:
  337.  
  338.      if Par1 == 1
  339.            Message="öáΓá½∞¡á∩ «Φ¿í¬á"
  340.            call ErrMsg
  341.      endif
  342.  
  343.      if Par1 == 2
  344.            Message="ÄΦ¿í¬á CRC, áασ¿ó ¿ß»«ατÑ¡"
  345.            call ErrMsg
  346.      endif
  347.  
  348.      if Par1 == 3
  349.            Message="ÄΦ¿í¬á ºá»¿ß¿"
  350.            call ErrMsg
  351.      endif
  352.  
  353.      if Par1 == 4
  354.            Message="ÄΦ¿í¬á ß«ºñá¡¿∩ Σá⌐½á"
  355.            call ErrMsg
  356.      endif
  357.  
  358.      if Par1 == 5
  359.            Message="ÄΦ¿í¬á τΓÑ¡¿∩"
  360.            call ErrMsg
  361.      endif
  362.  
  363.      if Par1 == 6
  364.            Message="ÄΦ¿í¬á ºá¬αδΓ¿∩ Σá⌐½á"
  365.            call ErrMsg
  366.      endif
  367.  
  368.      if Par1 == 7
  369.            Message="ÄΦ¿í¬á «Γ¬αδΓ¿∩ Σá⌐½á"
  370.            call ErrMsg
  371.      endif
  372.  
  373.      if Par1 == 8
  374.            Message="ìÑ σóáΓáÑΓ »á¼∩Γ¿"
  375.            call ErrMsg
  376.      endif
  377.  
  378.      if inswrow = 12
  379.            text "\n"
  380.      endif
  381.  
  382.      if inswrow < 12
  383.            inswrow=inswrow+1
  384.      endif
  385.      window 1,1,80,25
  386. endp
  387.  
  388. proc ErrMsg
  389.      window 17,14,62,21
  390.      setcolor WHITE,RED
  391.      clrscr
  392.      window 1,1,80,25
  393.      box 20,15,59,20,WHITE,RED,DOUBLE
  394.      gotoxy 1,15
  395.      ctext " ",Title," "
  396.      gotoxy 1,17
  397.      ctext Message
  398.      setcolor WHITE,BLACK
  399.      gotoxy 1,19
  400.      ctext " Ok "
  401.      sound 20,5
  402.      sound 80,50
  403.      delay 15000
  404.      window 1,1,80,25
  405. endp
  406.  
  407. proc ArcDone
  408.      sound 3300,25
  409.      delay 100
  410.      sound 2450,100
  411.      window 7,12,75,23
  412.      setcolor LIGHTCYAN,BLUE
  413.      gotoxy 1,inswrow
  414.      text "éßÑ. ôßΓá¡«ó¬á ºáóÑαΦÑ¡á"
  415.      delay 500
  416.      savescr 2
  417.      Title=" Åα«µÑßß πßΓᡫ󬿠"
  418.      Message=" ôßΓá¡«ó¬á ºáóÑαΦÑ¡á "
  419.      call OkMsg
  420.      restscr 2
  421. endp
  422.  
  423. proc OkMsg
  424.      window 24,14,57,21
  425.      setcolor BLACK,WHITE
  426.      clrscr
  427.      window 1,1,80,25
  428.      box 27,15,53,20,BLACK,WHITE,DOUBLE
  429.      gotoxy 1,15
  430.      ctext " ",Title," "
  431.      gotoxy 1,17
  432.      ctext Message
  433.      setcolor WHITE,BLACK
  434.      gotoxy 1,19
  435.      ctext " Ok "
  436.      delay 50000
  437.      window 1,1,80,25
  438. endp
  439.  
  440. proc OutHelp
  441.      setcolor BLACK,CYAN
  442.      box 14,6,65,20,BLACK,CYAN,SINGLE
  443.      gotoxy 37,6
  444.      text " æ»αáó¬á "
  445.      window 15,7,64,19
  446.      clrscr
  447.      outtext on
  448.  
  449.   æ¡áτá½á ºáñá⌐ΓÑ »πΓ∞ πßΓᡫ󬿠¿º ¼Ñ¡ε, ºáΓѼ
  450.   óδíÑα¿ΓÑ »π¡¬Γ ¼Ñ¡ε "ôßΓá¡«ó¿Γ∞" - τΓ«íδ
  451.   ¡áτáΓ∞ πßΓá¡«ó¬π.
  452.  
  453.   Å«ß½Ñ πß»ÑΦ¡«⌐ αá߻ᬫ󬿠Σá⌐½δ íπñπΓ αẼÑΘÑ¡δ
  454.   »« π¬áºá¡¡«¼π »πΓ¿.
  455.  
  456.      outtext off
  457.      delay
  458. endp
  459. ;
  460. ;
  461. ;
  462. ;
  463. ;
  464. ;
  465. ;
  466. ;
  467. ;
  468. ;
  469. ;
  470. ;           ┌────────────────────────────────────────────┐
  471. ;           │                                            │
  472. ;           │ î«ª¡« ¡Ñ ¿ß»«½∞º«óáΓ∞ RAR ñ½∩ φΓ«ú« áασ¿óá │
  473. ;           │                                            │
  474. ;           │  ¥ÆÄ ÄæÄüàìì¢ë SFX - çÇÅôæÆêÆà ê ôéêäêÆà!  │
  475. ;           │                                            │
  476. ;           └────────────────────────────────────────────┘
  477. ;
  478. ;
  479. ;
  480. ;
  481. ;
  482. ;   iSFX ßµÑ¡áα¿⌐ ¡Ñ »«¬áºδóáÑΓß∩ ¬á¬ áασ¿ó¡δ⌐ ¬«¼¼Ñ¡Γáα¿⌐ ß RAR 1.54 ¿ óδΦÑ!
  483.